1 DIM Z$(31):POKE53280,0:POKE53281,0
3 PRINT"[147] [198][207][210] [193][160][208][210][201][206][212][197][196] [195][207][208][217]":PRINT" [207][198][160][212][200][197][160][196][207][195][211], [212][213][210][206]"
5 PRINT" [217][207][213][210][160][208][210][201][206][212][197][210][160][207][206]":PRINT" [193][206][196][160][200][201][212] <[210][197][212][213][210][206]>."
7 PRINT" [212][207] [208][210][201][206][212] [196][207][195][211] [212][207]":PRINT" [217][207][213][210] [211][195][210][197][197][206], [200][201][212]":PRINT" [212][200][197] <[211][208][193][195][197]>[160][194][193][210]."
10 PRINTTAB(3)"[213][211][197][160][195][213][210][211][207][210][160][203][197][217][211][160][212][207][160][195][207][206][212][210][207][204][160][215][201][206][196][207][215].
13 [153]"";:[153][163]20)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
15 [129]R[178]1[164]9:[153][163]20)"(null)WAIT                 (null)WAIT":[130]R
20 [153][163]20)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
25 [129]R[178]1[164]31:[135]Z$(R):[130]R:R[178]1:A[178]1:B[178]1
27 [137] 45
30 C[178]0:[151]198,0:[146]198,1:[161]A$
35 [139]A$[178]""[167]A[178]A[170]1:[139]A[177]23[167]A[178]A[171]1:[137]30
36 [139] A$[178]" "[167]70
37 [139]A$[178]"CMD"[167]A[178]A[171]1:[139]A[179]1[167]A[178]A[170]1:[137]30
39 [139] A$[178][199](13)[167]60
40 [139]A$[178]""[167]B[178]B[170]1:[139]B[177]23[167]B[178]B[171]1:[137]30
43 [139]A$[178]"ON"[167]B[178]B[171]1:[139]B[179]1[167]B[178]B[170]1:[137]30
45 [153]"";:[129]T[178]0[164]8:B$(C)[178][202](Z$(B[170]T),A,17)
50 [153][163]21)B$(C):[130]:[137]30
60 [156]:[134]A$(28):[159]4,4,7
65 [129]R[178]1[164]28:[135]A$(R):[152]4,A$(R):[130]:[160]4:[138]
70 [156]:[134]A$(28):[153]"LOAD";
75 [129]R[178]1[164]20:[135]A$(R):[153]A$(R):[130]
80 [153][163]14)"LEFT$RIGHT$(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)"
83 [151]198,0:[146]198,1:[161]B$:B$[178]""
85 [129]R[178]19[164]28:[135]A$(R):[153]A$(R):[130]
87 [153][163]14)"LEFT$RIGHT$(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)"
90 [151]198,0:[146]198,1:[161]B$:[138]
998 [131] "                                       "
999 [131] "  LENVAL(null)VAL(null)(null)RIGHT$ATN(null)(null)ATN(null)VAL PRESENTS:              "
1000 [131] "                                       "
1001 [131] "                (null)VAL(null)(null)CLOSE(null)RIGHT$(null)STR$(null)(null)(null)           "
1002 [131] "                                       "
1003 [131] "     (null)HIS IS THE PEEKATN(null)RIGHT$LEN VERSION OF      "
1004 [131] " (null)VAL(null)(null)CLOSE(null)RIGHT$(null)STR$(null)(null)(null). RIGHT$T WAS PROGRAMMED ON    "
1005 [131] " (null)OVEMBER 5TH, 1987 BY CHR$EOFF (null)AYLOR.   "
1006 [131] "     (null)HIS PROGRAM CAN EASILY BE ADDED  "
1007 [131] " TO YOUR OWN PROGRAMS. RIGHT$F ALL YOU WANT "
1008 [131] " TO CHANGE IS THE (null)VAL(null)(null) THEN SIMPLY     "
1009 [131] " CHANGE THE TEXT IN THE STR$ATN(null)ATN           "
1010 [131] " STATEMENTS. PEEKVALCLOSE(null)(null)(null)VAL (null)(null)(null) (null)(null) LENLEFT$ATN(null)CHR$VAL (null)LEFT$VAL "
1011 [131] " (null)RIGHT$(null)VAL (null)ASCCLOSE(null)LEFT$VALCLOSESTR$ATN(null)ATNCLOSE(null)RIGHT$(null)VAL(null)!!!!            "
1012 [131] "      RIGHT$F YOU WANT TO CHANGE WINDOW SIZE"
1013 [131] " YOU MUST CHANGE THE LENGTH OF THE     "
1014 [131] " WINDOW IN LINES 15 AND 20. ATNLSO, TO   "
1015 [131] " CHANGE THE HEIGHT OF THE WINDOW YOU   "
1016 [131] " NEED TO MODIFY THE ASC(null)(null)/(null)VAL(null)(null) (null)(null)(null)(null) IN   "
1017 [131] " LINE 17.                              "
1018 [131] "      (null)O CHANGE THE DIMENSIONS OF THE  "
1019 [131] " WINDOW AS A WHOLE YOU NEED TO MODIFY  "
1020 [131] " THE DIMENSIONED Z$ IN LINE 1 TO THE   "
1021 [131] " NUMBER OF LINES YOU WANT TOTAL. ATNLSO, "
1022 [131] " YOU NEED TO MODIFY THE ASC(null)(null)/(null)VAL(null)(null)CLOSE(null)(null)(null)(null)  "
1023 [131] " IN LINE 25 TO MATCH THE SIZE OF THE   "
1024 [131] " STR$RIGHT$(null) Z$. (null)ITH THAT, LINES 35 - 43 ALSO "
1025 [131] " NEED TO BE MODIFIED. (null)ASTLY, LINE 45  "
1026 [131] " NEEDS TO BE SET TO EQUAL THE SIZE OF  "
1027 [131] " THE WINDOW.                           "
1028 [131] "                                       "
2000 [153]"LOAD";
2003 [129]R[178]1[164]24:[153]"STOP                                        WAIT";:[130]
2005 [153]"                                       ";
2010 [142]